
program chapter4_4
    print *, 'Please tell me your monthly income(an integer)'
    read(*, *)  income
    if (income .LT. 400) then
        tax=0
    else
        tax=0.2*(income-400)
    end if
    print *, 'The income tax you need to pay monthly is',  tax, 'yuan'

end program

